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LL II Ss | 
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LL II SS 
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DYNMEM 1g~3e0- 138% 00:15:68 VAX-11 Bliss-32 V4.0-742 9) 

14-Sep-1984 12:52:20 DISKSVMSMASTER: CPATCH.SRCJDYNMEM. B32. r. 1) 
H 1 L 000) 0 MODULE DYNMEM i | 4 ZVARIANT EQL 1 
: : $008 Q ADDRESSING_MODE MAD A hy LONG RELATIVE, 
; 4 0004 0 ONEXTERNAL = LONG_RELATIVE), 
; 5 0005 QO tF I 
; 6 47 0 IDENT="V04-000') = 
: 7 0007 0 
5 8 0008 1 BEGIN 
; 9 0009 1! 
: 10 0010 1! 
F 11 O11 1 lee eee ee EAE 
H i pore } !e * 
: 1 001 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
s 14 0014 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
° i? Belz : ” ALL RIGHTS RESERVED. * 
: 'e ® 
; 17 0017 1 !« re i accte 44 FURNISHED rae ten LICENSE AND MAY BE USED AND COPIED * 
; 18 0018 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 19 0019 1 !# INCLUSION OF FAe ABOVE sof ear NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 20 0020 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
° 21 0021 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS_ HEREBY * 
; $8 on5s : :* TRANSFERRED. * 
: in te 
; 24 0026 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 25 0025 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT e 
; $$ it) : es CORPORATION. * 
: '® * 
; 28 0028 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 29 0029 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: 30 0030 1 is : 
We. 0031 1 is . 
: 32 et Zt LS eee RRR RARER ERA EERE RARE EEA EEE EERE RE 
+ a 0035 1! 
; 34 0034 1! 
; 35 0035 1! 
: # 0036 1! 
; 37 0037 1! 
; 36 0038 1 !++ 
; 39 0039 1! 
; 40 0040 1 ! MODULE: DYNMEM 
H 41 0041 1! 
é 42 Bpeg 1 ! FACILITY: PATCH 
s $63 0043 1! 
: rf | bes ! : ABSTRACT: DYNAMIC MEMORY ALLOCATION AND DEALLOCATION 
; 46 0046 1 ! HISTORY: 
: 47 0047 1! 
; 0048 1! 
FY 49 0049 1! AUTHOR: T.J. PORTER 14-JAN-77 
; So 0050 1! 
; 51 0051 1 ! MODIFIED BY: 
; = 6036 7 
; 3 0055 1! 
: 54 0054 1! v03-001 shyt a Mike Rhodes 14- soue Tere 
; . 0055 1! Use snerss. system me geees tested podules, tn lude 
H 56 0056 1! DYNMEM ATBAS. 32. Pai CHD. B PAT ae PATING. B32, 
: 57 0057 1! PATIO.B832, PATMAIL.B *PATMSG. MSG, PATWRT.B32, and PATSPA, 632. 
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4 90:15:68 VAX-11 Bliss-32 V4.0-742 Page 3 
4 12:52:20 DISKSVMSMASTER: CPATCH.SRCJDYNMEM.B32; 1 (2) 


ce 0074 1 !+¢4 

oe Bhoe 1! 

eo 7 o76 1 ! FUNCTIONAL DESCRIPTION: 

. 0077 1! ; 
ae 143 . | This module contains all the dynamic memory allocation 

; w# 079 1! and de-allocation logic for patch. A singly 

. 8} 080 1! Linked ist of free blocks of memory is maintained 

= 0081 1! (Listhead is pat$gl_memlhd) and menory is allocated 

© 00 § 1! by first fit. Should there be no available memory block 

>; 4 00 1! of required size, the allocation routine expands 

; 8 0084 1! the paren region by the number of pages equal to 

; 86 Bone 1! PATSK_MEMEXP, Links this on the end of the free 

; 87 0 § 1! List and allocates the required memory from that new 

; 8 0087 1! block. The free ee | List is therefore initialized 

<- oe 0088 1! on first allocation call. aye is overt allocated 

; 90 0089 1! in eight byte quanta, with a maximum of PATSK_MEMEXP*512 

: 4 BRay : bytes. Deallocation effects compaction whenever possible. 
; 3 0092 1 ! CALLING SEQUENCES: 

: | 694 0093 1! PATSALLOBLK (BLOCKSIZE ,BLOCKADDR) 

; 95 0094 1! PATSDEALBLK (BLOCKSIZE ,BLOCKADDR) 

; «696 0095 1! where: 

> § 0096 1! BLOCKSIZE = number of bytes to be (de)allocated. 
; 86498 0097 1! BLOCKADDR = address of cell for the address of 

; WW 0098 1! the block allocated or to be deallocated. 
3 19 S044 : ERROR CONDITIONS: 

: 4 B12 : 1. BLOCKSIZE < OR = 0 OR > PATSK_MEMEXP*512 (CODE = 0,10) 
: 104 $103 1? 2. Failure to expand the program region issues a message 
$ igo He: ; that memory is full and the Linker aborts. 

; 107 0106 1! 3. Any part of a block to be deallocated is: 

; 108 0107 1! (1) Within a free block (code = 2,13) 

; 109 0108 1! (11) Beyond top of program region (code = 11) 

; 119 344 : } (111) Lower than than lowest block ever allocated (code = 12) 
3s Vie 0111 1! In cases 1 and 3 a fatal ("'bug’’) message is issued and 

.. 3ae Bite 1! the patch terminates. 

s 316 011 1! 

s 995 0114 1! 

s 116 0115 «#1 
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! INCLUDE FILES: 


LIBRARY ‘SYSSLIBRARY:L1B.L32'; 
REQUIRE ‘SRC$:PREFIX.REQ'; 
REQUIRE ‘LIBS:PATDEF.REQ'; 
REQUIRE ‘LIBS:PATMSG.REQ'; 
REQUIRE ‘*SRC$:VXSMAC.REQ'; 
REQUIRE ‘SRC$:PATPCT.REQ'; 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
PATSALLOBLK : NOVALUE, 
ALLOCATE 


PATSDEALBLK : NOVALUE, 
DEALLOCATE; 


EXTERNAL DATA 


EXTERNAL 
PATSGL_ISVADDR : VECTORC,LONG), 


RRCODE, 
PATSGL_MEMLHD : VECTORC,LONG), 
PATSGL_MINADDR; 


EQUATED SYMBOLS 


EXTERNAL LITERAL 
PATSK_MEMEXP, 
PATSK_MAXBLKSIZ, 


} 12 
16-Sep-1984 
14-Sep-1984 


13:53: 


$8 path Bliss-32 V4.0-74 


Defines system structures and services 
Defines useful macros 

Defines Literals 

Define error codes 

Define TRUE and FALSE 

Define PSECTS 


Allocation driver 
Allocation routine 
Deallocation driver 
Deallocation routine 


-742 Page 4 
ISKSVMSMASTER: CPATCH.SRCIDYNMEM.B32; 1 (3) 


Contains starting and ending virtual addrs of Last. 


Global error code 
Free memory Listhead 
Lowest address ever allocated 


# of pages to extend program region 
Maximum allocation size 


Define shared message references. (resolved @ Link time) 


PAT$_CLOSEIN 
PATS-CLOSEQUT, 


! OWN STORAGE 


OWN 
ERRORCODE : BYTE 
NEWBLOCK : REF VECTORC 
NEXTBLOCK : REF VECTOR 1. 
LASTBLOCK : REF VECTORC2): 


Error closing input file. 
Error closing output file. 
Error opening input file. 
Error opening output file. 
Error reading from file. 
System Service error. 
Error writing to file. 


Error code for failure message 
Current block pointer 

Next block pointer 

Previous block pointer 


Be Oe Be Oe BH Be Oe Se Be SHS Se Se Ge Se Se Se Se Se Ge Fe Se Se SH Se Se Se Se Se ee Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se THF Se oe SH we 


12 
1-Se 1984 00:14:29 VAX-11 Bliss-32_V4,0-742 P 5 x 
12288b-198¢ 99:33: 0 DISKSVMSMASTER: CPATCH.SRCIDYNMEM.B32; 1°" (4), ve 


: iy 8s 8 ! GLOBAL ROUTINE PATSALLOBLK(SIZE,BLOCKADDR) :NOVALUE = : 
: 17 691 1: Allocate a block from the free memory List. ; 
Pin | Bei 2 
iho i 2 
: 188 0696 LOCAL : 
3; «(184 69 BLOCKSIZE; : 
: «185 0698 5 
; 186 969? '+¢ ; 
: 187 0 !' Initialize local error code. : 
: ibe 0709 ERRORCODE = 0 ' Initiali d 
; = 0; ! Initialize error code ; 
: 190 070 3 
s 191 0704 '4¢ | 3 
: 136 14 43 } Set size af block to allocate (round up to 8 bytes). : 
3 Ie 4424 BLOCKSIZE = (.SIZE + 7) AND ( NOT 7); ! Round up to multiple of 8 bytes 
: 196 0709 2 !++ : 
: 44 gry } Now check for zero size block then allocate it. | : 
: 199 071 if (.BLOCKSIZE EQL 0) ' Check Legal block | : 
; 200 0718 2 OR ! Size was requested : 
: 201 0714 -BLOCKSIZE GTRU PATSK_MAXBLKSIZ | é 
3 $06 0715 OR NOT ( ERRORCODE = .ERRORCOBE + 1; ' Set new error code 3 
; it, Bris 5 nen ALLOCATE (.BLOCKSIZE, .BLOCKADDR)) ' Go allocate : 
: 205 0718 2 SIGNAL (PAT$_MEMBUG,1,.BLOCKSIZE,.BLOCKADDR, .ERRORCODE); ! Print error message and TERMINATE IF FAILU. : 
: 206 0719 2 RETURN; ' Otherwise return 3 
3s 27 0720 1 END; ! Of PATSALLOBLK routine : 


-TITLE DYNMEM 
-IDENT \V04-000\ 


.PSECT _PATSOWN,NOEXE ,2 
00000 ERRORCODE: 

~BLKB 
00001 BLK 
00004 NEWBLOCK: te 
00008 NEXTBLOCK: 
0000¢ LAS IBLOCK: 


5 
4 
4 
4 


; * PENOUT 
TEXTRN PATS"READERR, PATS_SYSERROR 
-EXTRN PATS WRITEERR 


K a 
DYNMEM 16-$ VAX=11 Bliss-32 V4.0-742 6 
v04 14S 71382 98: 43 30 DISKSVMSMASTER: CPATCH. SRCIDYNMEM. 832: gs (4) | 


«PSECT _PATSCODE,NOWRT,2 


000¢ 0000 .ENTRY PATSALLOBLK, Save R2,R3 : 0689. 
53 00000000" EF 9€ 0000 MOVAB ERRORCODE, R3 : 
63 94 0000 CLRB_ —« ERRORCO t 0702 | 
59 04 =A 7 1 0008 ADDL 3 uv. SIZE, RO + 0707, 
& 5 07 ce 001 BICL * RO, ee OCKSIZE : 
1A 13 00014 BEQL > 0712. 
000000006 8F 3¢ D1 00016 CMPL  BLOCKSIZE, #PATSK_MAXBLKSIZ t 0714) 
11 1A 0001D BGTRU 1$ : 
63 96 OOOTF INCB.  ERRORCODE : 0715. 
08 Ac DD 00 1 PUSHL BLOCKADDR : 0716 | 
53 DD 00094 PUSHL —BLOCKSIZE ies 
00000000V EF 0 Fe 0026 CALLS , ALLOCATE : | 
17 f 0020 BLBS R 2$ : 
7E 63 9A 00030 1$ MOVZBL ERRORCODE, -(SP) ; 0718) 
08 AC 0D 00033 PUSHL BLOCKADDR 3 
52 DD 000 é PUSHL BLOCKSIZE : | 
07 oD 000 PUSHL ; | 
00608194 8F DD 0003A PUSHL #7176596 : 
000000006 00 05 FB 00040 CALLS #5, LIBSSIGNAL : | 
04 00047 2$: RET ; 0720) 
} 
| 


; Routine Size: 72 bytes, Routine Base: _PATSCODE + 0000 


12 
1$- Sep-1984 214: X=-11 Ol ise. 32 V4.0-742 7 
00 14- =3e7 1 Re 90:15:83 DISKSVMSMASTER: CPATCH.SRCIDYNMEM. B32. zee (5). 


ROUTINE ALLOCATE (SIZE,ADDRESS) = 


: Routine to do actual allocation and program 
: region expansion 


BEGIN 
LASTBLOCK = PATSGL_MEMLHD(O]; ! Initially at top of free list 


'o4 | 
ic Check down free List for first block of equal or larger size. | 


~ 


WHILE (NEWBLOCK = .LASTBLOCKLOJ)NEQ 0 DO ' Follow down free List 

IF (.NEWBLOCKC1) EQL .SIZE) ' Look for suitable free block 

THEN BEGIN enere size match 
pe ee = erkectaty o last points where this one pointed 
IF (.ADDRESS = BLOCKCO}) L SSU_ .PATS$GL ‘mINADDR ! Now record lowest 
is yl PATSGL SMINABDR NEWBLOC KCOJ; T Allocated address 
— N TRUE? i And we are done 

ELSE IF (.NEWBLOCKC1] GTRU .SIZE) ! Or one Larger than requested 


E 1 
THEN BEGIN 
oe x Te Oee Paige gt SIZE; ! In which case there is a new 


NEXTB = ; 

NEXTBLOCK(1) = we uptOcKts ]=. SIZE: ! yon block (the part remain- 

LASTBLOCK(OJ = NEXTBLO CKCOJ; i aS after taking requested block off 

IF (.ADDRESS = NEWBLOCKCOJ) LSSU_ .PATSGL nat DDR ! Now record lowest 

THEN gt. § SMINADDR = ONEWBLOCKEO); T Allocated address 

- nee 5 RUE? ! And we are done 

ELSE LASTBLOCK = NEWBLOCK(O); ! When not suitable this block becomes previous bloc. 
END; ! Of while loop 


‘ At this point we have reached the end of the free | 
: memory List without finding a block of required size. 
§ Thus, we expand the address space and attempt to 
; allocate from additional virtual memory. | 
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P iF PATSGL_ERRCODE=$SEXPREG(PAGCNT=PATS$K_MEMEXP 
, RETADR=PATSGC_ISVADDR) 
fecrpsetut ly expanded program region 
5 THEN BEGIN ocate new space to end of 
8 IF NOT gg Aas oy MAXBLKSIZ, -PATSGL_ ISVADDREOS” at ASTBLOckEOd) 
8 IF NOT ALLOCATE(. oie “ADORESS) ! Free List then allocate from it 
9 THEN RETURN FALSE; 
? OF se TRUE; 
§ ' Failure to expand program region 
61 ELSE SIGNAL (PAT$_SYSERROR,0,.PATSGL_ERRCODE); ' Is fatal 
, 02 4 ND; ! Of allocate routine 
: INFO#212 L1:0773 


; Null expression appears in value-required context 
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Routine Base: 


187 bytes, 
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GLOBAL ROUTINE PATSDEALBLK(SIZE,BLOCKADDR) :NOVALUE = 
Routine to deallocate a block to the free 
‘ memory List after checking its size 


lew 
BEGIN 


LOCAL 
BLOCKSIZE; 


44 
il Initialize error code to deallocate routine. 


ERRORCODE = 10; 


144 
Round up the block size to the nearest quadword. 


BLOCKSIZE = (.SIZE + 7) AND ( NOT 7); 


le4 

Now search for place in free List to insert block. 
if (.BLOCKSIZE EQL 0) 

(.BLOCKSIZE GTRU PATSK_MAXBLKSIZ) ! Legal and that it lies 
OR (ERRORCODE = .ERRORTODE + + 73 ! 

(.BLOCKADDR + .BLOCKSIZE) ) GTRU CONTROL REGION ! rte wh Pee | wm program region 


Net ace 
OR (ERRORCODE = .ERRORCODE : Py Issue fatal error messa 
-BLOCKADDR LSSU .PATSGL_M 


Initialize error code 


Round up to a multiple of 8 bytes 


! Check block size is 


MINADDR) rites if below minimum a located address 
OR NOT DEALLOCATE(.BLOCRSIZE,.BLOCKADDR,PATSGL_MEMLHD) ries deallocation 
THEN SIGNAL (PATS _MEMBUG, 1,.BLOCKSIZE, .BLOCKADDR, .ERRORCODE) ; ssuing fatal error if failure 


RETURN; ' Otherwise just return 
END; 


000c 00000 .ENTRY PATSDEALBLK, Save R2,R3 
53 00000000" EF 43 00002 MOVAB ERRORCODE R 
63 0A 90 00009 MOVB. = #10, ERRORCO ODE 
50 04 AC 07 C1 0000C ADDL3 4 SIZE, 
52 50 97 cB 00011 BICL3 #7. RO, BLOCKSIZE 
A 13 00015 BEQL 
000000006 &F 52 pi 00017 CMPL  BLOCKSIZE, #PATSK_MAXBLKSIZ 
311A O00iE BGTRU 1$ 
63 96 0002 INCB. _—_— ERRORCODE 
0 52 08 AC C1 000 : ADDL3 BLOCKADDR, B QCKSIZE. RO 
40000000 = &F 50 D1 000 CMPL RO, #1073741 
21 1A 000 f BGTRU 1$ 
63 96 000 INCB — ERRORCODE 
000000006 EF 08 AC D1 00032 CMPL = BLOCKADDR, PATSGL_MINADDR 
15 1F OO003A BLSSU. 18 


8 13 
16-Sep-1984 ¢ 99: 714: $8 VAX=11 Bliss-32_ V4.0=742 Pag 
14-Sep-1984 12:52:20 DISKSVMSMASTER: CPATCH.SRCIJDYNMEM.B32; 
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¢ 13 
16-Sep-1984 VAX-11 Bliss-32 V4.0-742 11. 
14- Sep- 138 99:33 52: 5 DISKSVMSMASTER: CPATCH.SRCJDYNMEM. B32, r (6). v0 
000000006 EF OF 9003¢ PUSHAB PATS$GL_MEMLHD : 0807 
08 AC ODD 0048 PUSHL BLOCKABDR : 
52 DD 0004 PUSHL BLOCK KSIZE ; 
00000000v EF 0 FB 0047 CALLS # DEALLOCATE : 
17 30 E LO4E LBS ~=—s-_- RO, 2 : 
7E 63 9A 00051 1$ MOVZBL ERRORCODE, -(SP) > 0808 | 
08 AC DD 00054 USHL BLOCKADDR : 
52 DD 00057 PUSHL BLOCKSIZE ; 
01 DD 00059 PUSHL #1 ; 
00608194 8F DD 00058 PUSHL #7176596 ; 
000000006 00 05 FB 00061 CALLS #5, LIBS$SIGNAL ; 
04 00068 2$: RET : 0811) 
; Routine Size: 105 bytes, Routine Base: _PATSCODE + 0103 
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v04-000 1328e07 1386 99:53:53 BTSKSUMEMASTERSEPATCH. SRCIDYNMEM.B32¢1°° (70. 

; \ at ! ROUTINE DEALLOCATE(SIZE,ADDRESS,LISTHEAD) = ; 
; 304 0814 1! Routine to a block onco a List of free blocks, ; 
s 30> 0815 1! with maximal compaction 3 
3; we 0816 1 !-- 3 
; sor 0817 1 3 
; 308 0818 BEGIN 3 
; 309 0819 ++ : ; 
; 19 pase Initialize search down the free List. : 
; 316 bes6 LASTBLOCK = .LISTHEAD; ! Previous block initially the Listhead : 
; 3 b8s NEWBLOCK = .ADDRESS; ' Current block is to be inserted 3 
; 314 0824 5 
3 $12 0825 144 ; ’ 3 
; $13 bess § Now search the List for the place to insert the free block. F 
; 318 0828 2 WHILE (NEXTBLOCK = .LASTBLOCKCOJ)NEQ 0 DO ! Follow down free List till 3 
; iy fh ; N ! The end, or till we reach 3 
; 320 0830 IF NEWBLOCKCO] LEQU NEXTBLOCK(O) : 
; gel 0831 3 THEN “be ; ; : 
3 (See 0832 4 BEGIN ! The position for insertion. § 
3 es 0833 4 IF NEWBLOCKCOJ+.SIZE EQL NEXTBLOCK(O) : 
; 324 0834 4 THEN | ; 
3 6See 0835 5 GIN ! Here we compact with next block r 
: 326 0836 5 NEWBLOCKCO] = .NEXTBLOCK(O); ; 
. Ber 0837 5 NEWBLOCKL1J = .NEXTBLOCK(1]+.SIZE; 3 
; 3208 0838 5 D 3 
; 329 0839 4 ELSE | : 
; 330 0840 5 BEGIN : 
: 33} 0841 5 IF NEWBLOCKCO) + .SIZE GTRU NEXTBLOCK(O] ! If the block to deallocate 3 
; 332 Baeg 6 THEN (ERRORCODE = .ERRORCODE + 1; ! Extends into next free block : 
$ gee 0843 5 RETURN FALSE); ! And return failure ; : : 
: 334 0844 5 NEWBLOCKCOJ = NEXTBLOCK(O]; ! Else set pointer and size since no : 
3 3539 0845 5 NEWBLOCKC1J = .SIZE; ' Forward compaction needed 3 
3; poe 0846 4 END; ; 
: 337 0847 4 IF NEWBLOCKLO] EQL LASTBLOCKCOJ+.LASTBLOCK(1) ; 
; 338 0848 4 THEN ‘ : : 
; 339 0849 5 BEGIN ' Here we compact with previous 3 
; 340 0850 5 LASTBLOCKCO) = .NEWBLOCK(O]; ' k bs 
;. 3 0851 5 LASTBLOCKC1) = .NEWBLOCKL1)+.LASTBLOCK(1); - 
; a6 083¢ 5 END ; 3 
; 34 0853 4 ELSE '! No backward compaction but... 3 
3: 6344 0854 5 BEGIN ' Must check that block to 3 
: $02 0855 5 IF NEWBLOCKCO) LSSU LASTBLOCKCO] + .LASTBLOCK(1) : : 
3; 346 0856 5 ! Deallocate is not partially in 3 
3 6Sér 0857 6 THEN (ERRORCODE = .ERRORCODE + 1; ! Previous hole -- failure if so $ 
; 348 0858 5 RETURN FALSE); ) ; 
; 349 0859 5 LASTBLOCKCO) = NEWBLOCK(O); ' If ok previous points to new one. ; 
: 350 0860 4 3 ' And we are dune compacting 3 
r 51 0861 4 RETURN TRUE; ' So return success. : 
3 26 p86¢ 4 END 3 
s 39 086 ; ELSE : : 3 
: 354 086 LASTBLOCK = NEXTBLOCK(O); ! Not there yet so last block is one just tested : 
s 355 0865 END; ! Of while loop 3 
: 356 086 3 
2 Sey 086 'e¢ ; 3 
3; 538 0868 ! The blocx to deallocate is beyond Last hole : 
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DYNMEM 16 -1984 00:14:29 VAX-11 Bliss-32 V4.0-742 Page 14 
v04-000 14 7198¢ 99:33:33 DISKSVMSMAS STER: CPATCH.SRCIJDYNMEM.B32;1 a (7) | 
F4 =AG «96 00072 7$ INCB ERRORCODE ; 0871 3 
17 «11 ie BRB 12$ : 0874. ; 
07 s 77 8$ BNEQ 9$ 3 0875) ; 
04 AO 06 Ac C stag ADDL2 SIZE, 4(RO) 3; 0876. ; 
OA 11 it BRB 11$ : 3 
61 D4 ppe8 9$: CLRL (R1) : 0879 5 
04 = «Al 04 AC 00 44-04 MOVL SIZE, 4(R1) ; 0880. : 
60 51 DO 00087 10$: MOVL R1, (RO) ; 0881. : 
50 01 DO OOO8A 118: MOVL #1, RO : 0883) : 
04 0008D RET : 0874) $ 
50 D4 QOO8E 12$: CLRL RO ; 0885 | 3 
04 09090 ET : ; 
; Routine Size: 145 bytes, | Routine Base: _PATSCODE + 016C | : 
; 376 0886 0 END ELUDOM ! Of module | : 
-EXTRN LIBSSIGNAL | : 
; PSECT SUMMARY | : 
: Name Bytes Attributes : 
:  _PATSOWN 16 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | ; 
3 ~PATSCODE 509 NOVEC, *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
; Library Statistics 
ER ae oe a ee AMET OD, Speen Syabelg oncoe=-- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 7 0 1000 00:01.8 
; Information: 1 
3 Warnings: 
; Errors: 
; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/VARIANT:1/LIS=LIS$:DYNMEM/OBJ=OBJ$:DYNMEM MSRC$:DYNMEM/UPDATE=(ENHS$: DYNMEM) 
3; Size: 509 code + 16 data bytes 
; Run Time: 06:19.0 
; Elapsed Time: 01:09.9 
3 Lines/CPU Min: 2797 


DYNMEM 
voer600 
3; Lexemes/ 
$ ry U 
; Compi lat 
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